---
title: "Discurso presidencial de 1996"
output: 
  flexdashboard::flex_dashboard:
    source_code: embed
    logo: fujimori.jpg
    social: ["github", "menu"]
    theme:
      version: 4
      bg: "#E6F0FF"
      fg: "#001F33" 
      primary: "#4CAF50"
      navbar-bg: "#6699CC"
      base_font: 
        google: Prompt
      heading_font:
        google: Sen
      code_font:
        google: 
          family: JetBrains Mono
          local: false

---

```{r setup, include=FALSE}
library(flexdashboard)

#version: 4
#      bg: "#101010"
#      fg: "#FDF7F7" 
#      primary: "#B6F979"
#      navbar-bg: "#3ADAC6"

```  

# BIOGRAFIA {data-icon="fa-github"}

column {data-width=400}
---  
### **Alberto Fujimori**  

To include a value box within a Shiny flexdashboard you need to be sure to wrap the value box output in renderValueBox (so that it is updated when inputs it depends on change). For example:  

column {data-width=600}  
---  

### **Foto de Fujimori**  

  
# GRÁFICOS {data-icon="ion-ios-star-half"}  

Column {data-width=650 .tabset}
-----------------------------------------------------------------------

### Chart A

```{r}

```  

### Chart X
```{r}
# Instalar y cargar las bibliotecas necesarias
library(wordcloud2)

# Datos de ejemplo: palabras y sus frecuencias
palabras <- c("manzana", "banana", "naranja", "pera", "uva")
frecuencias <- c(20, 15, 25, 18, 22)

# Crear un data frame con las palabras y sus frecuencias
datos <- data.frame(word = palabras, freq = frecuencias)

# Ordenar los datos por frecuencia (opcional)
datos <- datos[order(-datos$freq), ]

# Crear la nube de palabras en forma de círculo
wordcloud2(data = datos,
           size = 0.8,          # Tamaño relativo de las palabras
           shape = 'circle',    # Forma del contenedor
           rotateRatio = 0,     # Rotación de las palabras
           minRotation = 0,     # Rotación mínima de las palabras
           maxRotation = 0      # Rotación máxima de las palabras
)

```


Column {data-width=350}
-----------------------------------------------------------------------

### Chart B

```{r}

```

### Chart C

```{r}

```  

# Valuebox {data-orientation="rows" data-icon="ion-erlenmeyer-flask"}

## {data-height=300}  

### **VALUEBOX**  

```{r}
valueBox(value = 17,
         caption = "personas",
        color = "orange")
```  

## {data-height=700}  

### **GRAFICAS DE SENTIMIENTO**  

```{r}

```